home *** CD-ROM | disk | FTP | other *** search
/ Learn Microsoft Visual Basic 6.0 Now / Learn Microsoft Visual Basic 6.0 Now (Microsoft Press)(X03-58607)(1998).ISO / media / chap10 / b10d010.cc2 < prev    next >
Text File  |  1998-06-07  |  3KB  |  70 lines
  1. 0, So, in this demonstration, I'll continue 
  2. 3, working with text files. This time, 
  3. 5, we'll be creating a text editor program. 
  4. 7, And we'll use a text box object and the 
  5. 10, common dialog object. Now I'm running the 
  6. 12, program now and I can start off by just 
  7. 14, typing some text. And I can use a 
  8. 20, feature in my program that will sort of time 
  9. 24, and date stamp it. And I can go ahead and 
  10. 27, do that in the window. And then I can 
  11. 31, move along and hit the Save As command, 
  12. 34, and that will bring up a Save As dialog 
  13. 36, box. That's a common dialog at work 
  14. 39, there. And I can assign a text file name. 
  15. 44, We'll call this Test2.txt. And my file 
  16. 52, is saved to disk. So that's the basic 
  17. 55, features of the text editing program. If 
  18. 57, I wanted to type multiple lines, there'd 
  19. 59, be no problem. I have scroll bars here 
  20. 61, and that would scroll to quite some 
  21. 62, distance down. I can exit the program by 
  22. 66, clicking the Exit command. So as that closes, 
  23. 70, let's take a quick look at some of the 
  24. 71, program code. Really, the most important 
  25. 74, event procedure in this program is the 
  26. 77, mnuSaveItem event procedure, and that is 
  27. 80, going to save the file to disk. Now, the 
  28. 84, entire file is stored in Text property 
  29. 88, of the text box object. And I create the 
  30. 91, file just by appending lines to that text 
  31. 96, box object. All right, so it's a pretty 
  32. 98, simple procedure to save it. First, I'll 
  33. 100, set my filter for the Save dialog box 
  34. 103, because I want to show text files and then 
  35. 106, I want to go ahead and display that 
  36. 107, Save dialog box with the ShowSave method of 
  37. 110, the common dialog object. Now, the user 
  38. 113, has a chance to pick a file name. And 
  39. 116, if they just hit OK and don't specify a 
  40. 119, name, that would be blank. We have to be 
  41. 122, careful about that because we'd be 
  42. 124, trying to save to a file that we didn't 
  43. 126, specify. So we want to test that with an If 
  44. 130, statement. But if the file name is not 
  45. 132, blank, then we want to open the file with 
  46. 135, the Open command. An we'll open it for 
  47. 137, output this time, rather than for input. 
  48. 140, We're writing to disk. And we'll use the 
  49. 142, Print statement to print the file to 
  50. 147, the Open filenumber. And what we're 
  51. 150, printing is, of course, the contents of our 
  52. 152, text box object. And immediately after 
  53. 155, that, we'll go ahead and close that file. 
  54. 158, And our saving operation is complete.The 
  55. 162, last thing I might show you is how that 
  56. 163, nifty little date stamp worked. That's a 
  57. 168, very simple procedure. I create a wrap 
  58. 171, character, which will add a carriage 
  59. 173, return to the text box. And then, I assign 
  60. 177, the Date command and the wrap character 
  61. 182, to the Text property of the text box 
  62. 185, object. And so that just sort of puts it at 
  63. 188, the very beginning of the text box 
  64. 190, object, which is a quick way to stamp 
  65. 193, something, maybe in a diary or something like 
  66. 195, that. So, we've sort of rounded out 
  67. 197, looking at text boxes here. We've seen how 
  68. 200, to display them and now we're seeing how 
  69. 204, to save text files to disk.
  70. 209, END